home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Spaced Out / DigitalVision: Spaced Out - Disc 1.iso / pc / data / images.dxr / Internal_26_keyword search button.ls < prev    next >
Encoding:
Text File  |  2001-10-22  |  350 b   |  13 lines
  1. property pSaveStateList
  2.  
  3. on mouseUp me
  4.   pSaveStateList = utilsGetState(#keywordsearch)
  5.   keyword = member("keywordsearch").text
  6.   if keyword <> EMPTY then
  7.     sendAllSprites(#processKeywordSearch, keyword, pSaveStateList.keywordCDImageList)
  8.   else
  9.     beep()
  10.     member("error message").text = "Pleasse type a keyword in the box above"
  11.   end if
  12. end
  13.